home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 1 / Cream of the Crop 1.iso / CAD / LISP04.ARJ / DL.LSP < prev    next >
Text File  |  1989-12-08  |  331b  |  13 lines
  1. ;9.  deletes layers.
  2. (Defun C:Dl (/ A B)
  3.        (Setvar "Cmdecho" 0)
  4.        (Setq A (Strcase (Getstring "\nEnter layer to delete: ")))
  5.  
  6.        (Setq B (Entnext))
  7.        (While B
  8.               (If (= A (Cdr (Assoc 8 (Entget B))))
  9.                   (Entdel B)
  10.               )
  11.               (Setq B (Entnext B))
  12.        )
  13. )